home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / COMEIN.DXR / 00194.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  1.6 KB  |  51 lines
  1. on exitFrame
  2.   global plant, plantcounter, effectspath
  3.   if plantcounter < 0 then
  4.     set the member of sprite 27 to member(87, 1)
  5.     set the member of sprite 28 to member(87, 1)
  6.     set the member of sprite 29 to member(87, 1)
  7.     set the member of sprite 3 to member(87, 1)
  8.     set the member of sprite 4 to member(87, 1)
  9.     sprite(3).visible = 0
  10.     sprite(4).visible = 0
  11.     updateStage()
  12.     if plant < 9 then
  13.       x = random(5)
  14.       if (x = 1) or (x = 2) or (x = 3) then
  15.         sound playFile 2, effectspath & "atziz"
  16.         plantcounter = 18
  17.         sprite(26 + x).visible = 1
  18.         set the member of sprite (26 + x) to member(186 + x, 1)
  19.         y = random(6)
  20.         if (x = 1) or (x = 2) or (x = 3) then
  21.           sprite(26 + x).visible = 1
  22.           set the member of sprite (26 + x) to member(186 + x, 1)
  23.         end if
  24.         if (x = 1) and (sprite(11).visible = 1) then
  25.           sprite(3).visible = 1
  26.           set the member of sprite 3 to member(187)
  27.           sprite(27).visible = 0
  28.           sprite(28).visible = 0
  29.         else
  30.           if (x = 2) and (sprite(11).visible = 1) then
  31.             sprite(4).visible = 1
  32.             set the member of sprite 4 to member(188)
  33.             sprite(27).visible = 0
  34.             sprite(28).visible = 0
  35.           else
  36.             if (x = 1) and (sprite(8).visible = 1) then
  37.               sprite(3).visible = 1
  38.               sprite(27).visible = 0
  39.               sprite(28).visible = 0
  40.               set the member of sprite 3 to member(187)
  41.             end if
  42.           end if
  43.         end if
  44.         plant = plant + 1
  45.       end if
  46.     else
  47.       go("docwin")
  48.     end if
  49.   end if
  50. end
  51.